﻿Public Class teste
    Dim ds As New DataSet

    Private Sub teste_Load(sender As Object, e As EventArgs) Handles Me.Load
        Try
            Dim caminho As String = "http://geralaudosautomaticos.atwebpages.com/versao.xml"
           
                ds.ReadXml(caminho)

            MsgBox("teste")
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try
    End Sub
End Class